home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nivb / seldir.frm < prev    next >
Text File  |  1995-05-07  |  4KB  |  144 lines
  1. VERSION 2.00
  2. Begin Form SelectDirForm 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Select Directory"
  5.    ClientHeight    =   4170
  6.    ClientLeft      =   1935
  7.    ClientTop       =   1665
  8.    ClientWidth     =   4455
  9.    ControlBox      =   0   'False
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   0   'False
  12.    FontName        =   "System"
  13.    FontSize        =   9.75
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   4575
  17.    Icon            =   0
  18.    Left            =   1875
  19.    LinkMode        =   1  'Source
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   4170
  24.    ScaleWidth      =   4455
  25.    Top             =   1320
  26.    Width           =   4575
  27.    Begin CommandButton GetDirButton 
  28.       Caption         =   "&Get Dir Info"
  29.       Height          =   495
  30.       Left            =   3000
  31.       TabIndex        =   6
  32.       Top             =   2160
  33.       Width           =   1215
  34.    End
  35.    Begin DriveListBox DriveBox 
  36.       Height          =   315
  37.       Left            =   255
  38.       TabIndex        =   4
  39.       Top             =   3735
  40.       Width           =   2475
  41.    End
  42.    Begin CommandButton CancelButton 
  43.       Cancel          =   -1  'True
  44.       Caption         =   "&Cancel"
  45.       Height          =   465
  46.       Left            =   3000
  47.       TabIndex        =   7
  48.       Top             =   2880
  49.       Width           =   1215
  50.    End
  51.    Begin CommandButton OKButton 
  52.       Caption         =   "Change &Dir"
  53.       Default         =   -1  'True
  54.       Height          =   465
  55.       Left            =   3000
  56.       TabIndex        =   5
  57.       Top             =   1440
  58.       Width           =   1245
  59.    End
  60.    Begin DirListBox DirBox 
  61.       Height          =   1830
  62.       Left            =   270
  63.       TabIndex        =   2
  64.       Top             =   1485
  65.       Width           =   2460
  66.    End
  67.    Begin Label Label1 
  68.       Caption         =   "Current directory:"
  69.       Height          =   255
  70.       Left            =   240
  71.       TabIndex        =   8
  72.       Top             =   720
  73.       Width           =   1815
  74.    End
  75.    Begin Label Label3 
  76.       Caption         =   "Dri&ves:"
  77.       Height          =   255
  78.       Left            =   195
  79.       TabIndex        =   3
  80.       Top             =   3450
  81.       Width           =   765
  82.    End
  83.    Begin Label CurrDirLabel 
  84.       Caption         =   "---"
  85.       Height          =   225
  86.       Left            =   255
  87.       TabIndex        =   1
  88.       Top             =   1080
  89.       Width           =   3960
  90.    End
  91.    Begin Label Label2 
  92.       Caption         =   "Select a directory, then  click Get Dir Info to get information about it."
  93.       Height          =   495
  94.       Left            =   240
  95.       TabIndex        =   0
  96.       Top             =   120
  97.       Width           =   3615
  98.    End
  99. End
  100.  
  101. Sub CancelButton_Click ()
  102.     
  103.     Unload SelectDirForm
  104.  
  105. End Sub
  106.  
  107. Sub DirBox_Change ()
  108.     
  109.     ' propogate directory changes to other controls
  110.     CurrDirLabel.Caption = DirBox.Path
  111.     ChDir DirBox.Path
  112.  
  113. End Sub
  114.  
  115. Sub DirBox_Click ()
  116.     DirBox_Change
  117. End Sub
  118.  
  119. Sub DriveBox_Change ()
  120.  
  121.     ' change the DirBox control path, it will
  122.     ' pass the change on to the FileListBox control
  123.     DirBox.Path = DriveBox.Drive
  124.     ChDrive (DriveBox.Drive)
  125.  
  126. End Sub
  127.  
  128. Sub Form_Load ()
  129.     CurrDirLabel.Caption = DirBox.Path  'Show full path name in a label
  130.     
  131. End Sub
  132.  
  133. Sub GetDirButton_Click ()
  134.     CurrDirLabel.Caption = DirBox.Path
  135.     ChDir DirBox.Path
  136.     dirPath$ = CurrDirLabel.Caption
  137.     DirDirForm.Show
  138. End Sub
  139.  
  140. Sub OKButton_Click ()
  141.     DirBox.Path = DirBox.List(DirBox.ListIndex)
  142. End Sub
  143.  
  144.